home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / fido / GMS_1_1_85.lha / GMS / Rexx / GMS_callNode.rexx next >
OS/2 REXX Batch file  |  1995-04-19  |  1KB  |  53 lines
  1. /*
  2.  * $VER: GMS_CallNode.rexx 1.1 (9.4.95)
  3.  *
  4.  */
  5.  
  6. options results
  7. signal on error
  8. signal on syntax
  9.  
  10. parse arg gms_line gms_retries gms_delay gms_node
  11.  
  12. if( ~show( 'l', "gms_mailer_rexx.library" ) ) then
  13. do
  14.    if( ~addlib( "gms_mailer_rexx.library", 0, -30, 0 ) )then
  15.    do
  16.       say "Could not open gms_mailer_rexx.library"
  17.       exit 10
  18.    end
  19. end
  20.  
  21. if gms_node    == '' then signal Usage
  22. if gms_line    == '' then gms_line    = 0
  23. if gms_retries == '' then gms_retries = -1
  24. if gms_delay   == '' then gms_delay   = -1
  25.  
  26. call GMS_Mailer_System_Alloc('gms_mailer', gms_line, 'nonew')
  27.  
  28. call GMS_Mailer_Call_Node('gms_mailer', gms_node, gms_retries, gms_delay, 'async')
  29.  
  30. call GMS_Mailer_System_Free('gms_mailer')
  31.  
  32. call GMS_Mailer_FreeScriptData()
  33. exit 0
  34.  
  35. Usage:
  36.  
  37. say 'Usage: rx GMS_CallNode[.rexx] <line num> <retries> <delay> <nodes> '
  38.  
  39. call GMS_Mailer_FreeScriptData()
  40. exit 0
  41.  
  42. error:
  43. syntax:
  44.  
  45. error_text = GMS_Mailer_LastError()
  46.  
  47. if error_text = '' then error_text = rc ErrorText( rc )
  48.  
  49. say '| ***BREAK: error at' sigl error_text
  50.  
  51. call GMS_Mailer_FreeScriptData()
  52. exit rc
  53.